home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gb.d64 / pz boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  59 lines
  1. 1 REM - PZ.BOOT
  2. 2 REM - DANIEL MILLER
  3. 3 REM - 2815 34 STREET
  4. 4 REM - ASTORIA, QUEENS
  5. 5 REM - NEW YORK, NEW YORK   11103
  6. 6 REM - APRIL 25, 1983
  7. 7 REM *********************************
  8. 1000 QO$=CHR$(34):DW$=CHR$(17):FOR X=1 TO 24:DO$=DO$+DW$:NEXT X
  9. 1010 BLK$=CHR$(144):UC$=CHR$(142):LC$=CHR$(14)
  10. 1020 RV$=CHR$(18):RO$=CHR$(146):CL$=CHR$(147):HM$=CHR$(19)
  11. 1030 POKE 53281,7
  12. 1100 PRINT CL$;UC$;LEFT$(DO$,2);TAB(12);RV$+BLK$+"PUZZLE MENU"+RO$:PRINT
  13. 1110 PRINTTAB(10)"1. PEG SOLITAIRE":PRINTTAB(10)"2. CHECKERS SWITCH"
  14. 1120 PRINTTAB(10)"3. 'E' PUZZLE":PRINTTAB(10)"4. THIRTEEN PEGS"
  15. 1130 PRINTTAB(10)"5. TOWERS OF BRAHMA":PRINT
  16. 1140 PRINTTAB(15)"ENTER CHOICE ";:INPUT CH$
  17. 1150 IF CH$<"1" OR CH$>"5" THEN CH$="":GOTO1140
  18. 1160 ON VAL(CH$) GOTO 1170,1180,1190,1200,1210
  19. 1170 PZ$="PEGSOL.D":GOTO1220
  20. 1180 PZ$="SWITCH.D":GOTO1240
  21. 1190 PZ$="E PUZZLE.D":GOTO1260
  22. 1200 PZ$="THIRTEEN PEGS.D":GOTO1280
  23. 1210 PZ$="TOWERS.D":GOTO1300
  24. 1220 PRINT CL$;LEFT$(DO$,2);LC$;TAB(14);RV$+BLK$+"[208]EG [211]OLITAIRE"+RO$:PRINT
  25. 1222 PRINT"   [195]HOOSE FROM 14 CHALLENGING PUZZLES.":PRINT
  26. 1224 PRINT" [205]ULTIPLE JUMPS ARE ALLOWED.  [208]RESS ANY":PRINT
  27. 1226 PRINT" [198]UNCTION [203]EY ([198]1,[198]3,[198]5,[198]7) AFTER EACH":PRINT
  28. 1228 PRINT" MOVE, INCLUDING ALL JUMPS, TO UPDATE":PRINT
  29. 1230 PRINT" THE [205]OVE COUNTER.":PRINT:GOTO1380
  30. 1240 PRINT CL$;LEFT$(DO$,2);LC$;TAB(14);RV$+BLK$+"[195]HECKERS [211]WITCH"+RO$:PRINT
  31. 1242 PRINT"   [210]EVERSE THE POSITIONS OF THE CHECKERS":PRINT
  32. 1244 PRINT" FROM [204]EFT TO [210]IGHT IN THE FEWEST MOVES.":PRINT:GOTO1380
  33. 1260 PRINTCL$;LEFT$(DO$,2);TAB(15);LC$;RV$+BLK$+"'[197]' [208]UZZLE"+RO$:PRINT
  34. 1262 PRINT"   [210]EVERSE THE POSITIONS OF THE PEGS":PRINT
  35. 1264 PRINT" FROM [212]OP TO [194]OTTOM IN THE LEAST NUMBER":PRINT
  36. 1266 PRINT" OF MOVES.":PRINT:GOTO1380
  37. 1280 PRINT CL$;LEFT$(DO$,2);TAB(14);LC$;RV$+BLK$+"[212]HIRTEEN [208]EGS"+RO$:PRINT
  38. 1282 PRINT"   [194]Y MOVES AND JUMPS, ELIMINATE THE":PRINT
  39. 1284 PRINT" [215]HITE PEGS FROM THE PLAYING SCREEN.":PRINT:GOTO1380
  40. 1300 PRINT CL$;LEFT$(DO$,2);TAB(12);LC$;RV$+BLK$+"[212]OWERS OF [194]RAHMA"+RO$:PRINT
  41. 1302 PRINT"   [205]OVE THE [210]INGS FROM [212]OWER #1 TO A":PRINT
  42. 1304 PRINT" DIFFERENT [212]OWER IN THE DESIGNATED":PRINT
  43. 1306 PRINT" NUMBER OF MOVES.  [217]OU MAY WORK WITH 2":PRINT
  44. 1308 PRINT" TO 8 [210]INGS.":PRINT
  45. 1310 PRINT"   [197]NTER '[216]' AS '[198][210][207][205][160][212][207][215][197][210][160]#' TO END.":PRINT
  46. 1312 PRINT" [201]F YOU ENTER '[217]' TO [195][207][205][208][213][212][197][210][160][211][207][204][213][212][201][207][206]":PRINT
  47. 1314 PRINT" THE PUZZLE WILL RESET AND SOLVE ITSELF.":GOTO1390
  48. 1380 PRINT"   [205]OVES ARE MADE USING  [210]OW AND [195]OLUMN":PRINT
  49. 1382 PRINT" NUMBER:":PRINT
  50. 1384 PRINT"        [198][210][207][205][160]?[160]14       [212][207] ? 24":PRINT
  51. 1386 PRINT" [198]ROM [210]OW-1 [195]OLUMN 4 [212]O [210]OW-2 [195]OLUMN 4.":PRINT
  52. 1388 PRINT" [197]NTER '99' AS [198][210][207][205] ? TO END."
  53. 1390 PRINT HM$;LEFT$(DO$,24);TAB(9);RV$+BLK$+"[208]RESS <[210][197][212][213][210][206]> TO [194]EGIN"+RO$;
  54. 1392 GET RT$:IF RT$="" THEN1392
  55. 1394 IF RT$<>CHR$(13) THEN RT$="":GOTO1392
  56. 1400 PRINT CL$;UC$;LEFT$(DO$,3)"LOAD";QO$;PZ$;QO$;",8"
  57. 1410 PRINT LEFT$(DO$,4);"RUN"+HM$
  58. 1420 FOR X=1 TO 4:POKE630+X,13:POKE198,4:POKE 53281,12:NEW
  59.